home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flwat02.dir / 00039_Script_39 < prev    next >
Text File  |  1994-11-15  |  4KB  |  174 lines
  1. on startMovie
  2.   global nowFrame, lastFrame, currMM, reEntry, dialogOn
  3.   global rolledAlready, thumbTrack, switchState,jmpFrame
  4.   set dialogOn = FALSE
  5.   set switchState = FALSE
  6.   set rolledAlready = FALSE
  7.   set currMM = "FLWWW"
  8.   puppetSprite 10, TRUE
  9.   puppetSprite 21, TRUE
  10.   puppetSprite 22, TRUE
  11.   puppetSprite 23, TRUE
  12.   set the immediate of sprite 23 to TRUE
  13.   set the stretch of sprite 23 to FALSE
  14.   put "On startMovie: " & the freeBytes
  15. end startMovie
  16.  
  17. on stepMovie
  18.   global nowFrame,currFrame
  19.   if nowFrame  <> currFrame then
  20.     seeAlsoList
  21.     set currFrame = nowFrame
  22.   end if
  23. end stepMovie
  24.  
  25. on stopMovie
  26.   set the castNum of sprite 21 to 1050
  27.   puppetSprite 21, FALSE
  28.   put " " into field "seeAlsoText"
  29.   updateStage
  30. end stopMovie
  31.  
  32. on scrollRoll
  33.   global switchState
  34.   
  35.   if rollover(13) then
  36.     set the forecolor of sprite 13 to 228
  37.   else
  38.     set the forecolor of sprite 13 to 255
  39.   end if
  40.   
  41.   if rollover(14) then
  42.     set the forecolor of sprite 14 to 228
  43.   else
  44.     set the forecolor of sprite 14 to 255
  45.   end if
  46.   
  47.   
  48.   if the frame >= 1 and the frame < 15 then
  49.     if the castNum of sprite 7 = 38 then
  50.       if the castNum of sprite 13 <> the number of cast "nextTxUp" then
  51.         set the castNum of sprite 13 to the number of cast "nextTxRt"
  52.       end if
  53.       set the castNum of sprite 14 to the number of cast "prevTxNull"
  54.     else if the castNum of sprite 7 = 37 then
  55.       set the castNum of sprite 13 to the number of cast "nextTxNull"
  56.       if the castNum of sprite 14 <> the number of cast "prevTxUp" then
  57.         set the castNum of sprite 14 to the number of cast "prevTxRt"
  58.       end if
  59.     end if
  60.   end if
  61.   
  62.   updateStage
  63. end scrollRoll
  64.  
  65. on multiScreenPup
  66.   puppetSprite 7, TRUE
  67.   puppetSprite 8, TRUE
  68.   puppetSprite 11, TRUE
  69.   puppetSprite 13, TRUE
  70.   puppetSprite 14, TRUE
  71. end multiScreenPup
  72.  
  73. on saveLocals
  74.   global lastFrame, nowFrame, lastMovie
  75.   set lastFrame = nowFrame
  76.   set lastMovie = the movie
  77. end saveLocals
  78.  
  79. on buttonState
  80.   global FrankNav
  81.   global thumbTrack, thumbFrame, bflag, dialogOn
  82.   
  83.   if dialogOn = FALSE then
  84.     
  85.     glassCheck
  86.     scrollRoll
  87.     
  88.     -- don't check global buttons unless mouse is down at bottom
  89.     if (the mouseV > 300) or (bFlag = TRUE) then
  90.       doState
  91.     end if
  92.   end if
  93. end buttonState
  94.  
  95. on atForStep
  96.   puppetSprite 7, FALSE
  97.   puppetSprite 8, FALSE
  98.   puppetSprite 11, FALSE
  99.   puppetSprite 13, FALSE
  100.   puppetSprite 14, FALSE
  101.   if the frame = 18 then
  102.     go to movie "FLWAT03"
  103.   else
  104.     go to marker(+1)
  105.   end if
  106.   updateStage
  107. end atForStep
  108.  
  109. on atBackStep
  110.   puppetSprite 7, FALSE
  111.   puppetSprite 8, FALSE
  112.   puppetSprite 11, FALSE
  113.   puppetSprite 13, FALSE
  114.   puppetSprite 14, FALSE
  115.   if the frame < 3 then
  116.     go to frame "at000bld005°°°" of movie "FLWAT01"
  117.   else
  118.     go to marker(-1)
  119.   end if
  120.   updateStage
  121. end atBackStep
  122.  
  123. on textRoll txHt
  124.   global origLocV, rolledAlready, topHat, horNess, dialogOn, SeeAlsoBox
  125.   if dialogOn = FALSE and SeeAlsoBox = FALSE then
  126.     set topHat = txHt
  127.     if rolledAlready = FALSE then
  128.       set origLocV = the locV of sprite 8
  129.     end if
  130.     
  131.     if the mouseH < 414 and the mouseV > 366 and the mouseV < 429 then
  132.       set the locV of sprite 8 to txHt
  133.       set rolledAlready = TRUE
  134.     else if the mouseH > 414 or the mouseV > 429 or the mouseV < topHat then
  135.       set the locV of sprite 8 to origLocV
  136.     end if
  137.   end if
  138. end textRoll
  139.  
  140. on glassCheck
  141.   if rollOver(10) then 
  142.     set the castNum of sprite 10 to 94
  143.   else
  144.     set the castNum of sprite 10 to 2
  145.   end if  
  146.   updateStage
  147. end glassCheck
  148.  
  149. on nextList
  150.   global switchState
  151.   puppetSprite 11, FALSE
  152.   puppetSprite 13, FALSE
  153.   puppetSprite 14, FALSE
  154.   set switchState = TRUE
  155.   if rollover(13) then
  156.     set currCast = the castNum of sprite 7
  157.     set the castNum of sprite 7 to (the number of cast currCast - 1)
  158.     set the castNum of sprite 11 to 97
  159.   end if
  160. end nextList
  161.  
  162. on prevList
  163.   global switchState
  164.   puppetSprite 11, FALSE
  165.   puppetSprite 13, FALSE
  166.   puppetSprite 14, FALSE
  167.   set switchState = TRUE
  168.   if rollover(14) then
  169.     set currCast = the castNum of sprite 7
  170.     set the castNum of sprite 7 to (the number of cast currCast + 1)
  171.     set the castNum of sprite 11 to 97
  172.   end if
  173. end prevList
  174.